home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 2 (Sweden) / BackPacker 2 (Sweden) (Disc 1).7z / BackPacker 2 (Sweden) (Disc 1).bin / pc / instdata / instin04 / 00061.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  441 b   |  13 lines
  1. on groovePaper gPaperLeft, gPulledLength
  2.   set start to gPaperLeft
  3.   set gPaperLeft to gPaperLeft - (gPulledLength / 100.0)
  4.   if gPaperLeft < 0 then
  5.     set gPaperLeft to 0
  6.   end if
  7.   repeat while start > gPaperLeft
  8.     set the text of field "papper_kvar" to "Remaining length: " & start & " m."
  9.     set start to start - 0.10000000000000001
  10.   end repeat
  11.   set the text of field "papper_kvar" to "Remaining length: " & gPaperLeft & " m."
  12. end
  13.